home *** CD-ROM | disk | FTP | other *** search
- { Get the current directory }
-
- FUNCTION Func47 (S, O, D : INTEGER) : BOOLEAN;
- BEGIN
- WITH Registers DO
- BEGIN
- AX:=((AX AND $00FF) OR ($47 SHL 8));
- DX:=((DX AND $FF00) OR (D AND $00FF));
- SI:=O;
- DS:=S;
- MSDOS (Registers);
- IF (Flags AND $0001)=1 THEN
- Func47:=TRUE
- ELSE
- Func47:=FALSE;
- END;
- END;